home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xcmd / newfolde.sit / NewFolder Stack / card_3016.txt < prev    next >
Text File  |  1990-04-03  |  4KB  |  152 lines
  1. -- card: 3016 from stack: in
  2. -- bmap block id: 3376
  3. -- flags: 0000
  4. -- background id: 2578
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=53 top=250 right=268 bottom=467
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Folder Name
  20.  
  21.  
  22. -- part 2 (button)
  23. -- low flags: 00
  24. -- high flags: A003
  25. -- rect: left=53 top=275 right=304 bottom=153
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: Create Folder
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   if card field "Folder Name" is empty then
  37.     Alert 3,2,"No folder name given",False
  38.     exit mouseUp
  39.   end if
  40.  
  41.   NewFolder card field "Folder Name"
  42.  
  43.   if the result is not empty then
  44.     OSErr "┬⌐1988SDrazga", the result
  45.   else
  46.     Alert 1,1,"Folder created",False
  47.   end if
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 5 (button)
  53. -- low flags: 00
  54. -- high flags: A003
  55. -- rect: left=361 top=275 right=304 bottom=461
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: Quit
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   domenu "Quit HyperCard"
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 6 (field)
  72. -- low flags: 01
  73. -- high flags: 0000
  74. -- rect: left=50 top=230 right=250 bottom=168
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 0
  78. -- font id: 3
  79. -- text size: 14
  80. -- style flags: 256
  81. -- line height: 18
  82. -- part name: 
  83.  
  84.  
  85. -- part 7 (button)
  86. -- low flags: 00
  87. -- high flags: A003
  88. -- rect: left=208 top=275 right=304 bottom=308
  89. -- title width / last selected line: 0
  90. -- icon id / first selected line: 0 / 0
  91. -- text alignment: 1
  92. -- font id: 0
  93. -- text size: 12
  94. -- style flags: 0
  95. -- line height: 16
  96. -- part name: Install
  97. ----- HyperTalk script -----
  98. on mouseUp
  99.   put StandardFile("get:OK", "STAK") into dest
  100.   if dest is empty then
  101.     exit mouseUp
  102.   end if
  103.  
  104.   put the value of word 2 of the long name of this stack into source
  105.   set the cursor to busy
  106.   ResCopy source, dest, "XCMD", "NewFolder"
  107.   if the result is not empty then
  108.     Alert 3,1,the result,False
  109.   end if
  110. end mouseUp
  111.  
  112.  
  113.  
  114. -- part 8 (field)
  115. -- low flags: 00
  116. -- high flags: 0007
  117. -- rect: left=50 top=79 right=225 bottom=463
  118. -- title width / last selected line: 0
  119. -- icon id / first selected line: 0 / 0
  120. -- text alignment: 0
  121. -- font id: 2
  122. -- text size: 10
  123. -- style flags: 0
  124. -- line height: 13
  125. -- part name: 
  126.  
  127.  
  128. -- part contents for card part 6
  129. ----- text -----
  130. Folder name:
  131.  
  132. -- part contents for card part 8
  133. ----- text -----
  134. NewFolder  by David Elliott
  135.  
  136. NewFolder <pathname>[,<pathname>...]
  137.  
  138. This XCMD takes a list of pathnames and creates each folder, including all of the ancestors of the folder that do not exist.  Note that a pathname must begin with the volume name for this XCMD to work as expected. 
  139.  
  140. The result is the system error if any occured, and is empty otherwise.
  141.  
  142. Copyright 1990, by David C. Elliott.
  143. You are free to use this XCMD in any of your stacks or collections
  144. (commerical or not) as long as you include this copyright.  This applies only to the NewFolder XCMDs.  Other XCMDs in this stack have other restrictions.
  145.  
  146. If you need an XCMD that will create folders under the auspices of the Standard File dialog, check out UbiqueΓäó by Chris Watson.
  147.  
  148. Portions ┬⌐ Symantec Corp.
  149. ResCopy ┬⌐ Apple Computer, Inc.
  150. Standard File ┬⌐ Nigel Perry
  151. Portions ┬⌐1988 Steve Drazga
  152. Alert by Maurice Volaski